1 ' *** OISAC 2 *** ADR-LIB ***
10 DEFSEG=0:P=PEEK1858+PEEK1859*256:DEFSEG=&H5000:D=PEEKP+PEEK(P+1)*256:S=PEEK(P+2):F=PEEK(P+3)+PEEK(P+4)*256:N$=" LIB : ":FORI=7TO13:N$=N$+CHR$(PEEK(P+I)):NEXT:CLS:PRINT"Pointeur:"P;N$;TAB(0)"Taille  :"F-D"Octets
20 A$="   Debut    Fin   Page   [":$="  &H":CLS:PRINTA$"Hexa]"TAB(0)$HEX$(D)$HEX$(F)$RIGHT$(HEX$(S),1):$="":CLS:PRINTA$"Deci]"TAB(2)D;CSR10;F;CSR18S